home *** CD-ROM | disk | FTP | other *** search
Wrap
XSetup plugin | 2001-09-01 | 2.0 KB | 78 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0" "TYPE"="4" "COUNT"="4" "UIPATH 1"="System\File System\Folders\Data" "UIPATH 2"="Program Options\Microsoft Office\MS Office 2000\Data Folders" "NAME"="Office 2000 Folders #2" "VERSION"="1.15" "LANGUAGE"="VBScript" "TEXT 1"="Word Files Dir" "TEXT 2"="PowerPoint Dir" "TEXT 3"="Publisher Dir" "TEXT 4"="Publisher Pic. Dir" "DESCRIPTION 1"="With this plug-in, you can change the default path for your files. When set, the program will use the configured folder as default for the file requester." "DESCRIPTION 2"="Please exit all Office programs before changing these settings." "AUTHOR"="Xteq Systems" "CONTACTURL"="http://www.xteq.com" "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved" "COMMENT 1"=" " sP="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Common\General\" 'STR W9x - xSTR WNT sWWD="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Word\Options\DOC-PATH" sPPT="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\PowerPoint\RecentFolderList\Default" sPUB1="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Publisher\Doc_Path" sPUB2="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Publisher\Picture_Path" sPCheck="HKCU\Software\Microsoft\Office\9.0\" Sub Plugin_Initialize if RegPathExists(sPCheck) then s=RegReadValue(sWWD) SetUIElement 1,s s=RegReadValue(sPPT) SetUIElement 2,s s=RegReadValue(sPUB1) SetUIElement 3,s s=RegReadValue(sPUB2) SetUIElement 4,s else Disable end if End Sub Sub Plugin_CheckData(ElementIndex) End Sub Sub Plugin_Apply(ElementIndex,ElementSubIndex) Call Wrt(1,sWWD) Call Wrt(2,sPPT) Call Wrt(3,sPUB1) Call Wrt(4,sPUB2) Call Logoff() End Sub Sub Wrt(ITM,VAL) s=GetUIElement(ITM) if len(s)>0 then if Right(s,1)="\" then s=left(s,len(s)-1) end if Call RegWriteValue(VAL,s,1) else s=RegReadValue(VAL) if IsEmpty(s)=false then Call RegDeleteValue(VAL) end if end sub Sub Plugin_Terminate End Sub